home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / problems < prev    next >
Text File  |  2007-02-28  |  2KB  |  123 lines
  1. 0010 ╨╥╧├ FIG'1 
  2. 0020   BEEPAT(4,2)
  3. 0030   RT
  4. 0040 ┼╬─╨╥╧├ FIG'1
  5. 0050 
  6. 0060 ╨╥╧├ FIG'2 
  7. 0070   BEEPAT(5,2)
  8. 0080   R'WALL(2,2,5)
  9. 0090   RODERIGUE(7,2)
  10. 0100   LT
  11. 0110 ┼╬─╨╥╧├ FIG'2
  12. 0120 
  13. 0130 ╨╥╧├ FIG'3 
  14. 0140   R'WALL(1,2,3)
  15. 0150   R'WALL(1,2,6)
  16. 0160   R'WALL(3,4,4)
  17. 0170   R'WALL(3,4,5)
  18. 0180   S'WALL(4,4,2)
  19. 0190   S'WALL(6,6,2)
  20. 0200   S'WALL(5,5,4)
  21. 0210   RODERIGUE(2,1); RT
  22. 0220 ┼╬─╨╥╧├ FIG'3
  23. 0230 
  24. 0240 ╨╥╧├ FIG'4 
  25. 0250   S'WALL(4,6,2)
  26. 0260   S'WALL(4,6,6)
  27. 0270   S'WALL(3,3,4)
  28. 0280   S'WALL(3,3,5)
  29. 0290   R'WALL(3,4,3)
  30. 0300   R'WALL(6,6,3)
  31. 0310   R'WALL(3,6,6)
  32. 0320   BEEPAT(3,3)
  33. 0330   RODERIGUE(4,3); LT
  34. 0340 ┼╬─╨╥╧├ FIG'4
  35. 0350 
  36. 0360 ╨╥╧├ FIG'5 
  37. 0370   S'WALL(7,9,2)
  38. 0380   S'WALL(7,9,6)
  39. 0390   S'WALL(6,6,4)
  40. 0400   S'WALL(6,6,5)
  41. 0410   R'WALL(3,4,6)
  42. 0420   R'WALL(6,6,6)
  43. 0430   R'WALL(3,6,9)
  44. 0440   RODERIGUE(7,5); RT
  45. 0450   BEEPAT(3,7); BEEPAT(3,8)
  46. 0460   BEEPAT(4,6); BEEPAT(5,5)
  47. 0470 ┼╬─╨╥╧├ FIG'5
  48. 0480 
  49. 0490 ╨╥╧├ FIG'6 
  50. 0500   ╞╧╥ I:=1 ╘╧ 3 ─╧
  51. 0510     R'WALL(I,I,I+1)
  52. 0520     S'WALL(I+2,I+2,I)
  53. 0530     BEEPAT(I+2,I+1)
  54. 0540   ┼╬─╞╧╥ I
  55. 0550   R'WALL(1,3,5)
  56. 0560   RODERIGUE(2,1); RT
  57. 0570 ┼╬─╨╥╧├ FIG'6
  58. 0580 
  59. 0590 ╨╥╧├ FIG'7 
  60. 0600   ╞╧╥ G':=3 ╘╧ 7 ─╧
  61. 0610     ╞╧╥ V':=2 ╘╧ 7 ─╧
  62. 0620       BEEPAT(G',V')
  63. 0630     ┼╬─╞╧╥ V'
  64. 0640   ┼╬─╞╧╥ G'
  65. 0650 ┼╬─╨╥╧├ FIG'7
  66. 0660 
  67. 0670 ╨╥╧├ FIG'8 
  68. 0680   ╨╥╧├ STP 
  69. 0690     MOVE; RT; MOVE
  70. 0700     PUTBEEP; LT
  71. 0710   ┼╬─╨╥╧├ STP
  72. 0720   //
  73. 0730   ╨╥╧├ ROW 
  74. 0740     STP; STP
  75. 0750     STP; STP
  76. 0760   ┼╬─╨╥╧├ ROW
  77. 0770   //
  78. 0780   ╨╥╧├ L'TURN 
  79. 0790     MOVE
  80. 0800     MOVE; LT; LT
  81. 0810   ┼╬─╨╥╧├ L'TURN
  82. 0820   //
  83. 0830   ╨╥╧├ R'TURN 
  84. 0840     RT; MOVE
  85. 0850     MOVE; RT
  86. 0860   ┼╬─╨╥╧├ R'TURN
  87. 0870   //
  88. 0880   RODERIGUE(5,1)
  89. 0890   ROW
  90. 0900   L'TURN
  91. 0910   ROW
  92. 0920   R'TURN
  93. 0930   ROW
  94. 0940   L'TURN
  95. 0950   ROW
  96. 0960 ┼╬─╨╥╧├ FIG'8
  97. 0970 
  98. 0980 ╨╥╧├ FIG'9 
  99. 0990   ╨╥╧├ ONE'DOWN 
  100. 1000     MOVE; MOVE
  101. 1010     PUTBEEP
  102. 1020   ┼╬─╨╥╧├ ONE'DOWN
  103. 1030   
  104. 1040   ╨╥╧├ NEW'WEST 
  105. 1050     MOVE; LT; MOVE
  106. 1060     PUTBEEP; LT
  107. 1070   ┼╬─╨╥╧├ NEW'WEST
  108. 1080   
  109. 1090   ╨╥╧├ NEW'EAST 
  110. 1100     MOVE; RT; MOVE
  111. 1110     PUTBEEP; RT
  112. 1120   ┼╬─╨╥╧├ NEW'EAST
  113. 1130   
  114. 1140   RT; MOVE
  115. 1150   ONE'DOWN
  116. 1160   NEW'WEST
  117. 1170   ONE'DOWN
  118. 1180   NEW'EAST
  119. 1190   ONE'DOWN; ONE'DOWN
  120. 1200   NEW'WEST
  121. 1210   ONE'DOWN; ONE'DOWN; ONE'DOWN
  122. 1220 ┼╬─╨╥╧├ FIG'9
  123.